Option Explicit

Sub Alle_Tabellen_Schützen(control As IRibbonControl)
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect
    Next ws
End Sub

Sub Alle_Tabellen_Entsperren(control As IRibbonControl)
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect
    Next ws
End Sub